object WorldPayForm: TWorldPayForm
  Left = 335
  Top = 237
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Register'
  ClientHeight = 423
  ClientWidth = 584
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 16
    Top = 24
    Width = 553
    Height = 33
    AutoSize = False
    Caption = 
      'Registration costs whatever you feel is appropriate, and in grat' +
      'itude of your support we will permanently remove the banner ads ' +
      'from this program.'
    WordWrap = True
  end
  object Label9: TLabel
    Left = 16
    Top = 8
    Width = 341
    Height = 13
    Caption = 'You can have a registered version of MailWasher right now!'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object CancelButton: TButton
    Left = 408
    Top = 384
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 0
    OnClick = CancelButtonClick
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 56
    Width = 553
    Height = 129
    Caption = ' Step 1: Get a registration key '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object Label2: TLabel
      Left = 144
      Top = 24
      Width = 59
      Height = 13
      Caption = 'Or choose'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 144
      Top = 100
      Width = 402
      Height = 13
      Caption = 
        'If you have already paid you can have a registration key automat' +
        'ically emailed to you.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 144
      Top = 38
      Width = 205
      Height = 13
      Caption = '(Your credit card details will be kept secure)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object CurrencyLabel: TLabel
      Left = 432
      Top = 24
      Width = 35
      Height = 13
      Caption = '(USD?)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 206
      Top = 24
      Width = 170
      Height = 13
      Caption = 'an amount more suitable for your tip:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 144
      Top = 60
      Width = 176
      Height = 13
      Caption = 'Print and complete the form provided.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object WorldPayButton: TButton
      Left = 16
      Top = 24
      Width = 121
      Height = 25
      Caption = 'Pay by Credit Card'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = WorldPayButtonClick
    end
    object EmailButton: TButton
      Left = 16
      Top = 96
      Width = 121
      Height = 25
      Caption = 'I have already paid'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = EmailButtonClick
    end
    object AmountBox: TComboBox
      Left = 380
      Top = 24
      Width = 49
      Height = 21
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 1
      OnChange = AmountBoxChange
      Items.Strings = (
        '$3'
        '$4'
        '$5'
        '$8'
        '$10'
        '$15'
        '$20'
        '$25'
        '$30'
        '$35'
        '$40'
        '$45'
        '$50'
        '$60'
        '$70'
        '$85'
        '$100')
    end
    object PayByPostButton: TButton
      Left = 16
      Top = 56
      Width = 121
      Height = 25
      Caption = 'Pay by post'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = PayByPostButtonClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 192
    Width = 553
    Height = 161
    Caption = ' Step 2: Enter in your registration key'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    object Label1: TLabel
      Left = 16
      Top = 26
      Width = 334
      Height = 13
      Caption = 
        'Paste your registration key into the box and click the "Register' +
        '" button.'
      DragMode = dmAutomatic
      FocusControl = CancelButton
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object KeyMemo: TMemo
      Left = 16
      Top = 48
      Width = 521
      Height = 65
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
      OnChange = KeyMemoChange
    end
    object RegisterButton: TButton
      Left = 462
      Top = 120
      Width = 75
      Height = 25
      Caption = 'Register'
      Default = True
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = RegisterButtonClick
    end
    object PasteButton: TButton
      Left = 16
      Top = 120
      Width = 115
      Height = 25
      Caption = 'Paste from clipboard'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = PasteButtonClick
    end
  end
  object Panel1: TPanel
    Left = 16
    Top = 368
    Width = 553
    Height = 3
    BevelOuter = bvLowered
    TabOrder = 5
  end
  object TestGroupBox: TGroupBox
    Left = 16
    Top = 344
    Width = 281
    Height = 57
    Caption = 'Test Worldpay payment system'
    TabOrder = 4
    object TestPositiveButton: TButton
      Left = 8
      Top = 24
      Width = 129
      Height = 25
      Caption = 'Successful transaction'
      TabOrder = 0
      OnClick = TestPositiveButtonClick
    end
    object TestNegativeButton: TButton
      Left = 144
      Top = 24
      Width = 129
      Height = 25
      Caption = 'Failed Transaction'
      TabOrder = 1
      OnClick = TestNegativeButtonClick
    end
  end
  object HelpButton: TButton
    Left = 496
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Help'
    TabOrder = 1
    OnClick = HelpButtonClick
  end
end